home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / EASY-GO.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  640 b   |  26 lines
  1. 100  '***************************************************
  2. 110  '**            EASY COME - EASY GO                **
  3. 120  '***************************************************
  4. 130  DIM ARRAY(100) : M = 1 : Z = 0
  5. 140  SCREEN 2 : KEY OFF : CLS : DIM X(3000) : A = 10
  6. 150  CIRCLE (300,100),90
  7. 160  PAINT (300,100),1
  8. 170  GET (200,50)-(400,150),X
  9. 180  CLS
  10. 190  FOR Z = 1 TO 100
  11. 200  Y = RND * 439
  12. 210  ARRAY (Z) = Y
  13. 220  NEXT Z
  14. 230  LOCATE 5,1 : PRINT "easy come - ";
  15. 240  FOR Z = 1 TO 100
  16. 250  Y = ARRAY(Z)
  17. 260  A = SIN(Y*0.015) * 45 + 50
  18. 270  PUT (Y,A),X,XOR
  19. 280  NEXT Z
  20. 290  LOCATE 5,1 : PRINT "easy come - easy go";
  21. 300  FOR Z = 100 TO 1 STEP -1
  22. 310  Y = ARRAY(Z)
  23. 320  A = SIN(Y*0.015) * 45 + 50
  24. 330  PUT (Y,A),X,XOR
  25. 340  NEXT Z
  26.